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ARATIONS 
GET_LUN = Allocate one logical unit number 
FREE_LUN = Deallocate one logical unit number 
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ett ° * SEP-1984 t 9f: bg: 22 LIBRTL.SRCJLIBLUN.MAR;1 ” (1) | 
TITLE Lest uN N = Resource wanes ys ad ierices unit numbers | 
. IDENT 0 BLUN.MAR Edit: MDL1005 


MARAAAAAARAAAAALAAALAALASLLS LEELA RASS SLES ESAS EERE ES ERE REE EEE ERE REECE ERR ea 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
7 OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT WARE OR ANY OTHER 
Pp 


-* * 
22 w 
*® te 
:* + 
** ® 
*® e 
*® * 
°@ ® 
;* HERE * 
;* ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. : 
-* ca 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT * 
*® * 
** * 
*?® ® 
*® * 
*® ® 
*® * 
*® * 


BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: General Utility Library 
ABSTRACT: 


Two routines for allocating and deallocating logical unit 
numbers. Using these routines allows use of logical 
unit number by multiple procedures without conflicts. 


ENVIRONMENT: User Mode, AST Reentrant 


AUTHOR: R. Reichert, CREATION DATE: 04-JUN-79 
MODIFIED BY: 


1-001 Original. RKR 04-JUNE-79 
1-002 Removed rte point LIBSRESERVE_LUN and reture igs 
LIBS_LUNALRRES (Lun already resérved). RKR 20-JU 9 
1-003 soungnt clean up. Made compares a ainst LOW_LUN aa “HIGH LUN 
CRPL's 3; Fade al “references to LUN_POOL be G*LUN_POOL. 
1-004 Aad” a Tank time flag. and set up initial mask based on that, in order 
to allow the Linker to perform demand-zero cen ression. MDL 6-Jul-1984 
1-005 Change interpretation of bits in LUN_POOL to eliminate need for a 
first time flag and thus restore AST” ane M Raley MDL 7-Aug-1984 
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1-008 DECLARATIONS ’ gree E=19ke $iiobses FCTONTS SaeSerBcGNcmaR;1 29° (3) 
; »SBTTL DECLARATIONS 
2 ; INCLUDE FILES: 
OR 
00 6¢ > EXTERNAL DECLARATIONS: 
44 65 ; 
00 64 -DSABL GBL ; Prevent undeclared 
000 65 : symbols from being 
B55 ? ; automatically global 
8 68 ; Error codes 
000 $? 
000 0 -EXTRN LIBS_INSLUN ; Insufficient Luns 
000 71 -EXTRN LIBS_LUNALRFRE ; Lun already free 
ti i -EXTRN LIBS_LUNRESSYS ; Lun reserved to system 
000 7 
0000 74; 
0000 75 ; MACROS: 
0000 £6 3 
0000 7s NONE 
0000 78 
0000 79 ; 
444 0 ; EQUATED SYMBOLS: 
00000004 0000 Hf ; LUN_NUMBER = 4 ; logical unit number parameter 
00000077 0000 8 HIGA_LUN = 119 ; highest unit number dispensed 
00000064 44 Se : LOW_CUN = 100 ; lowest unit number dispensed 
9009 86 : OWN STORAGE: 
00000000 88 -PSECT _LIBSDATA RD, WRT, NOEXE, NOSHR, PIC, LONG, - 
Ba08 82 CON, LCL, REL, USR 
0000 91 LUN_POOL: ; Pool of available logical unit numbers 
00000000 0000 3 -LONG 0 
0004 9 ; Low order bit represents logical 
0004 94 ; unit number 119, high order bit 
0004 95 3; logical unit number 88 . 
0004 96 : Only unit numbers 119 to 100 are 
0004 97 ; dispensed by this routine. 
0004 98 
Bae 99 ; 
$94 139 ; PSECT DECLARATIONS: 
0004 198 : .PSECT _LIBSCODE PIC, USR, CON, REL, LCL, SHR, - 
00009009 193 EXE, RD, NOWRT, LONG 
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ogical unit  6-SEP-19 LIBRTL.SRCJLIBLUN.MAR; 1 
-SBTTL LIBSGET_LUN = Allocate one logical unit number 
FUNCTIONAL DESCRIPTION: 
LIBSGET_LUN allocates one logical unit number from a process-wide 
pool. f a lun is available fcr use, its number is returned 
to the caller. If no luns are available, an error is returned 
as the function value. 
; CALLING SEQUENCE: 


status.wic.v = LIBSGET_LUN (LUN_NUMBER.wl.r) 


; INPUT PARAMETERS: 


NONE 


; IMPLICIT INPUTS: 


SoOOCSCCOOOCOOOCOOOOSCOCOOCSOOSOOOOSoOO 
CSOOoCoooooooooooooooooooooooo 


LUN_POOL, a table of available logical unit numbers in OWN 


storage. 
OUTPUT PARAMETERS: 
LUN_NUMBER - The number of the logical unit number allocated 
or -1 if none were available. 


IMPLICIT OUTPUTS: 


If successful, an gnere is made into LUN_POOL indicating that 
a logical unit number has been reserved. 


FUNCTION VALUE: 
COMPLETION CODES: 


SS$_NORMAL - Routine successfully completed. 
LIBS_INSLUN - Insufficient logical unit numbers. There were no 
more logical unit numbers available for allocation. 
f this error is returned, lun_number is 
also set to -1 in case the caller does not 
check for failure. 
SIDE EFFECTS: 


NONE 


MMMMNMMNVOOSCOSCSCOSSSSSSSSOSSSSSSSSSSSSSSSSSOSOSOSCOSOSOOSSOOSOSOSOOCOOSOS 
ec cc ec ee ee ee ee ee ee ed ed od od dd 3 od od od = 
AACN NUIUIMUIUIE BB BEE EEE BWW RPonononoNononony 2 OOOO 
NR OOONANE WN OOO NAUE WN CO DONAUN EWN OOO NAUEWN CO OONOUE WR ODONO 
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ENTRY LIBSGET_LUN, “M<IV> ; Save nothing 


Scan LUN_POOL for first available logical unit number 


FFC #0, #20, G*LUN_POOL, RO ; Look at the first 20 bits in LUN_POOL. 


————Eee moll 


5 


ED OOO00000'GF 50 €E2 BBSS RO, G*LUN_POOL, SCAN ; Repeat scan if already set 
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5-008 LIBSGET_LUN = Allocate one logical unit g-SE b=} 984 9:38:88 YOTRTL. SREILIBLUN. MAR: 1 dy | 
8 3; They represent LUNs 119-100. 
3s BEQL ALL_OUT ; Not. found 
s@ 
; Now recheck and set the bit in an uninterruptable fashion, 
: in case someone has set it at AST level in the meantime. 


: Return success with logical unit number in Lun_number. 
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8 
013 
81 
1 
i 
04 BC 00000077 8F 50 c¢3 001 SUBL3 RO, #HIGH_LUN, @LUN_NUMBER(AP) ; Subtract from HIGH_LUN 
OO1E ; because lo order table bit is 
Bate ; lun “high_lun’’. 
50 01 DO OOTE MOVL #1, RO ; SS$_NORMAL 
04 0021 RET : Exif 
00 ' 
B85 3 Return error since no logical unit numbers available 
002 
$055 ALL_OUT: 
04 BC 01 CE 00 MNEGL #1, @LUN_NUMBER(AP) ; Set LUN_NUMBER to -1 ; 
50 00000000'8F D0 0026 MOVL #LIBS_INSLUN, RO ; Insufficient logical unit numbers 
04 BaSe RET ; Exit 
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ne -SBTTL LIBSFREE_LUN = Deallocate one logical unit number 
FUNCTIONAL DESCRIPTION: 
LIBSFREE LUN is the complement of LIBSGET_LUN. When a routine 
called LIBSGET_LUN to allocate a Logical Unit number, and no 
longer needs it, LIBSFREE_LUN should be called to free the 
Logical unit number for use by other routines. 
CALLING SEQUENCE: 
: status.wic.v = LIBSFREE_LUN (LUN_NUMBER.rl.r) 
INPUT PARAMETERS: 


LUN_NUMBER 


eo 
orn 


= The number of the logical unit to be 
deallocated. This is the value returned 
to the user by LIBSGET_LUN. 

; IMPLICIT INPUTS: 


LUN_POOL, a table of available logical unit numbers in OWN 
storage. 


: OUTPUT PARAMETERS: 
: NONE 
: IMPLICIT OUTPUTS: 


An hig | is made in LUN_POOL indicating that the logical unit 
number is free for use. 


; FUNCTION VALUE: 
COMPLETION CODES: 


$S$_NORMAL 
L1BS$_LUNALRFRE 
LIBS_LUNRESSYS 


- Routine successfully completed. 
- Logical unit number already free. 


- Logical unit number reserved to Estes. This 


occurs if lun_number is outside the range 
of ‘LOW_LUN"’ and ‘'HIGH_LUN’’. 
; SIDE EFFECTS: 


NONE 


-ENTRY LIBSFREE_LUN, “M<IV> ; Save nothing 


3 Check to see if lun_number is in the proper range. 
CMPL 


@LUN_NUMBER(AP), #HIGH_LUN ; Bigger than high_lun? 
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5-008 LIBSFREE_LUN = Deallocate one logical un g- Seb 984 1 OB s88 ECTERTL. SREILIBLUN.MAR; 1 
1F 14 BGTR RES SYS _1 ; Yes, error 
00000064 8F 04 BC D1 CMPL @LUR_NUMBER(AP), #LOW_LUN ; Less than lowest ? 
1 19 BLSS  RES_SYS_1 ; Yes, error 


ca 


LUN_NUMBER is in range. Now, unset the bit. 


CO eeeees 
x 
= 


50 00000077 8F 04 aC 3 SUBL3 aL UN NUMBER(AP), #HIGH_LUN, RO ; Convert to bit offset 
OC 00000000 ' GF E BBCC RO, G*LUN_POOL, ALR_FRE ; Clear but error if 
; already clear. 
2¢ 
: Return success 
50 01 dO MOVL #1, RO ; SSS_NORMAL 
04 RET 


Error if logical unit number reserved to system or 
out of range. 
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END 


RES_SYS_1: 
50 00000000'8F BO 1 - Bis #LIBS_LUNRESSYS, RO ; Logical unit number reserved 
é 6 
: Error if logical unit number already free. 
6 e 
6 ALR_FRE: 
50 00000000‘ 8F B9 ti #LIBS_LUNALRFRE, RO ; Logical unit number already free 
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Symbol table 66-SEP-1984 11:08:55 (CLIBRTL.SRCJLIBLUN.MAR; 1 
ALL_OUT O90 0 ¢ | 03 
ALR “FRE 0 & 
A nl R 
Cissrhee aan = 388 gf RG RG 
LIB$G 0000000 RG 
L1BS_ iuetun eerereee X 
LIBS-LUNALRFRE eeeeeee x 00 
L18$~ LUNRESSYS eerereee = =X 8600 
LOwW_CUN = 00000064 
a Soooveee RO 
RES SYS_1 00000059 R 0 
SCAN 00000002 R 0 
wren em een awe noo aes + 
: Psect synopsis : 

PSECT name Allocation PSECT No. Attributes 

ABS 00000000 ( 0.) 00 ¢ 9. ) NOPIC USR CON ABS LCL N ae NOEXE NORD wownt NOVEC BYTE 

“LIBSDATA 00000004 ( 4.) 01 ¢ on PIC USR CON REL LCL NOSHR NOEXE RD T NOVEC LONG 

“LIBSCODE 00000069 ¢ 105.) 02 ¢ : ) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

wererereorennwne S26 0S See sesee} 
! ; Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.04 90:00:00 .68 
Eupenne. THe $88 BRag 8:08:85 
Syabo| eres of BB:R8:88-09  89:88:09.00 
Symbol table output : 00:00:00-01 00:00:00.01 
Psect synopsis output 2 OF 8 :00.01 00:00:00.01 
Cross-reference output . et ae 00:00:00.00 
Assembler run totals 28 00:00:01.1 00:00:07.87 


The working set tage was 900 pages. 

30350 bytes {6 pages) of virtual memory were used to buffer the intermediate co 

There were 10 pages of symbol table space allocated to hold 15 non-local and 8° lect symbols. 
89 source Lines were read in Pass 1, produc tng object records in Pass 2. 

pages of virtual memory were used to define 0 macros. 


Macro Library name Macros defined 


_$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 
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L1B 
Le nccre Run Statistics TL.SRC LUN.MAR;1 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:LIBLUN/OBJ=0BJ$:LIBLUN MSRC$:LIBLUN/UPDATE=(ENH$:LIBLUN) 
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